object Form4: TForm4
  Left = 351
  Top = 174
  Width = 365
  Height = 398
  BorderIcons = [biSystemMenu]
  Caption = 'Set category'
  Color = clBtnFace
  Constraints.MaxWidth = 365
  Constraints.MinWidth = 365
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    357
    364)
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 94
    Top = 330
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'OK'
    Default = True
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 191
    Top = 330
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 5
    OnClick = Button2Click
  end
  object NewEdit: TEdit
    Left = 9
    Top = 244
    Width = 296
    Height = 21
    Anchors = [akLeft, akBottom]
    TabOrder = 1
    OnEnter = NewEditEnter
    OnExit = NewEditExit
    OnKeyDown = NewEditKeyDown
    OnKeyPress = NewEditKeyPress
  end
  object Button3: TButton
    Left = 310
    Top = 241
    Width = 33
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Add'
    TabOrder = 2
    OnClick = Button3Click
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 272
    Width = 335
    Height = 45
    Anchors = [akLeft, akBottom]
    Caption = ' Multiple selection  '
    TabOrder = 3
    object SetCheck: TCheckBox
      Left = 9
      Top = 18
      Width = 97
      Height = 17
      Caption = 'Set values'
      TabOrder = 0
    end
    object ClearCheck: TCheckBox
      Left = 125
      Top = 18
      Width = 97
      Height = 17
      Caption = 'Clear values'
      TabOrder = 1
    end
  end
  object CatTreeView: TVirtualStringTree
    Left = 8
    Top = 8
    Width = 337
    Height = 225
    Anchors = [akLeft, akTop, akBottom]
    CheckImageKind = ckSystemFlat
    DefaultNodeHeight = 15
    Header.AutoSizeIndex = 0
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.Font.Style = []
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag]
    ParentBackground = False
    TabOrder = 0
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.SelectionOptions = [toFullRowSelect]
    OnBeforeItemErase = CatTreeViewBeforeItemErase
    OnCompareNodes = CatTreeViewCompareNodes
    OnGetText = CatTreeViewGetText
    Columns = <>
  end
  object ActionList1: TActionList
    Left = 32
    Top = 328
    object aClose: TAction
      Caption = 'aClose'
      ShortCut = 27
      OnExecute = aCloseExecute
    end
  end
end